home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / blitz-list200994.lha / blitz-list / 000427_blitz-list-request_Fri Jun 17 01:50:48 1994.msg < prev    next >
Internet Message Format  |  1994-09-20  |  8KB
  1. Received: from slick.clare.tased.edu.au (slick.clare.tased.edu.au [147.41.130.5]) by kantti.helsinki.fi (8.6.9/8.6.5) with SMTP id BAA10642 for <blitz-list@helsinki.fi>; Fri, 17 Jun 1994 01:48:06 +0300
  2. Received: (from preece@localhost) by slick.clare.tased.edu.au (8.6.8.1/8.6.6) id IAA01259; Fri, 17 Jun 1994 08:52:00 +1000
  3. Date: Fri, 17 Jun 1994 08:51:59 +1000 (EST)
  4. From: Paul Reece <preece@slick.clare.tased.edu.au>
  5. Subject: Re: Bugs, Bugs, Bugs...
  6. To: Nigel Hughes <nlh1@aber.ac.uk>
  7. cc: blitz-list@helsinki.fi
  8. In-Reply-To: <10571.771754686@mailhost.aber.ac.uk>
  9. Message-ID: <Pine.3.89.9406170833.B1249-0100000@slick.clare.tased.edu.au>
  10. MIME-Version: 1.0
  11. Content-Type: TEXT/PLAIN; charset=US-ASCII
  12. X-Status: 
  13. Status: RO
  14.  
  15. On Thu, 16 Jun 1994, Nigel Hughes wrote:
  16.  
  17. >  Hello everybody,
  18. >         I decided to try and write some of my more useful Blitz functions
  19. > into a library yesterday, so I sit down, read the various bits on library writing, I can
  20. > already code in 68k (written a full game in it 8) so I think no problems! I was wrong!
  21. > 
  22. > I seem to be upsetting blitz with the following routines! They actualy work as far as
  23. > functionality goes, but after using them I get a recoverable alert 0100 000C, which
  24. > is I think, exec saying it has a knackered memory list! Just as a control the second
  25. > function PCFSize (_pcfsize) which quite simply returns the length of a file, causes
  26. > the same things as the very slightly more complex CachePCF (_cachepcf). 
  27.  
  28. I get that recoverable alert all of the time.. I think that it's a BUG in 
  29. Blitz.
  30.  
  31.  - Paul
  32.  
  33. > 
  34. > Could someone please make me look stupid and tell me how I am killing the exec memory
  35. > list! Oh and out of interest when I pass 4 as the required memory type to CachePCF
  36. > it gurus straight away! So I AM doing something really dumb, it's just that after staring at the
  37. > code until 4am, I just cannot see the wood for the trees
  38. > 
  39. > My Flawed Library... 
  40. > 
  41. > ;======================;
  42. > ; PCF LIBRARY FOR BB2  ;
  43. > ;======================;
  44. > 
  45. > #pcflib=40
  46. > 
  47. > !libheader{#pcflib,0,0,0,0}
  48. > 
  49. > !afunction{#long}
  50. > !args{#string,#long}
  51. > !libs{#doslib,#la6}
  52. > !subs{_cachepcf,0,0}
  53. > !name{"CachePCF","File name,Memory Type"}
  54. > 
  55. > !afunction{#long}
  56. > !args{#string}
  57. > !libs{#doslib,#la6}
  58. > !subs{_pcfsize,0,0}
  59. > !name{"PCFSize","File Name"}
  60. > 
  61. > !astatement
  62. > !args{#long,#long}
  63. > !libs
  64. > !subs{_freepcfcache,0,0}
  65. > !name{"FreePCFCache","Cache Start,Cache Length"}
  66. > 
  67. > !libfin
  68. > 
  69. > _cachepcf
  70. >   MOVEM.l a3-a6,-(a7)
  71. >   MOVE.l  #0,file_spot
  72. >   MOVE.l  #0,unlock
  73. >   MOVE.l  d0,file_name
  74. >   MOVE.l  d1,memory_type
  75. >   MOVE.l  d0,d1
  76. >   MOVE.l  #-2,d2            ;shared lock, access read
  77. >   JSR     -$54(a6)          ;Lock(name,type)(d1,d2)
  78. >   CMP.l   #0,d0
  79. >   BEQ     lock_error
  80. >   MOVE.l  d0,file_lock
  81. >   MOVE.l  #$e0,d0
  82. >   MOVE.l  #0,d1
  83. >   ALibJsr $c002             ;Allocate memory for a file
  84. >   BEQ     ma_error1
  85. >   MOVE.l  d0,file_info
  86. >   MOVE.l  file_lock,d1
  87. >   MOVE.l  d0,d2
  88. >   JSR     -$66(a6)          ;Examine(lock,info buffer)(d1,d2)
  89. >   BEQ     examine_error
  90. >   MOVE.l  file_info,a0
  91. >   MOVE.l  $7c(a0),d0        ;How long is the file
  92. >   MOVE.l  d0,file_size
  93. >   MOVE.l  memory_type,d1    ;Ready to allocate all memory
  94. >   ALibJsr $c002
  95. >   BEQ     ma_error2
  96. >   MOVE.l  d0,file_spot      ;store the address
  97. >   MOVE.l  file_lock,d1
  98. >   JSR     -$17a(a6)         ;OpenFromLock(lock)(d1)
  99. >   MOVE.l  d0,file_hand      ;our new handle for the file
  100. >   CMP.l   #0,d0
  101. >   BNE     continue          ;Open OK no need to unlock
  102. > 
  103. > file_error:
  104. >   MOVE.l  file_spot,a1      ;could not open file, need to free memory
  105. >   MOVE.l  file_size,d0      ;then the lock
  106. >   ALibJsr $c003
  107. >   MOVE.l  #0,file_spot      ;no memory carried over
  108. > 
  109. >   BRA     ma_error2         ;Carry on as if no memory was allocated
  110. > 
  111. > 
  112. > continue:
  113. >   MOVE.l  #1,unlock         ;no need to unlock now
  114. >   MOVE.l  d0,d1
  115. >   MOVE.l  file_spot,d2
  116. >   MOVE.l  file_size,d3
  117. >   JSR     -$2a(a6)          ;Read(file,buffer,length)(d1,d2,d3)
  118. >   MOVE.l  d0,read_error     ;save any error number
  119. > 
  120. >                             ;Everything went OK free the file handle
  121. > 
  122. >   MOVE.l  file_hand,d1      ;start tidying up
  123. >   JSR     -$24(a6)          ;Close(file)(d1)
  124. >   MOVE.l  read_error,d0     ;now lets check the read was OK
  125. >   CMP.l   #-1,d0
  126. >   BNE     ma_error2         ;There was NO ERROR in reading
  127. > 
  128. >                             ;AN ERROR MUST FREE MEMORY
  129. >   MOVE.l  file_spot,a1      ;could not read file, need to free memory
  130. >   MOVE.l  file_size,d0      ;then the lock
  131. >   ALibJsr $c003
  132. >   MOVE.l  #0,file_spot      ;no memory carried over
  133. > 
  134. > ma_error2:                  ;Unable to allocate memory for file
  135. >                             ;Nothing to do but move on
  136. > 
  137. > examine_error:              ;Could not look at lock but still must free memory
  138. >   MOVE.l  file_info,a1
  139. >   MOVE.l  #$e0,d0
  140. >   ALibJsr $c003             ;Free file info memory
  141. > 
  142. > ma_error1:                  ;Could not even get memory for file info!
  143. >                             ;But must free the lock IF it was not opened
  144. >   MOVE.l  unlock,d0
  145. >   CMP.l   #1,d0
  146. >   BEQ     lock_error        ;no need to relinquish lock
  147. >   MOVE.l  file_lock,d1
  148. >   JSR     -$5a(a6)          ;Unlock(Lock)(d1)
  149. > 
  150. > lock_error:                 ;No lock no bloody nothing!
  151. > 
  152. > ok:
  153. >   MOVEM.l (a7)+,a3-a6
  154. >   MOVE.l  file_spot,d0      ;every thing went OK! give the user the pointer to the cache
  155. >   RTS
  156. > 
  157. > ;RETURN THE SIZE OF A FILE
  158. > 
  159. > _pcfsize
  160. >   MOVEM.l a3-a6,-(a7)
  161. >   MOVE.l  d0,d1
  162. >   MOVE.l  #-2,d2            ;shared lock, access read
  163. >   JSR     -$54(a6)          ;Lock(name,type)(d1,d2)
  164. >   CMP.l   #0,d0
  165. >   BEQ     size_lock_error
  166. >   MOVE.l  d0,file_lock
  167. >   MOVE.l  #0,file_size
  168. >   MOVE.l  #$e0,d0
  169. >   MOVE.l  #0,d1
  170. >   ALibJsr $c002             ;Allocate memory for a file
  171. >   BEQ     size_ma_error1
  172. >   MOVE.l  d0,file_info
  173. >   MOVE.l  file_lock,d1
  174. >   MOVE.l  d0,d2
  175. >   JSR     -$66(a6)          ;Examine(lock,info buffer)(d1,d2)
  176. >   BEQ     size_examine_error
  177. >   MOVE.l  file_info,a0
  178. >   MOVE.l  $7c(a0),d0        ;How long is the file
  179. >   MOVE.l  d0,file_size
  180. > 
  181. > size_examine_error:         ;Could not look at lock but still must free memory
  182. >   MOVE.l  file_info,a1
  183. >   MOVE.l  #$e0,d0
  184. >   ALibJsr $c003             ;Free file info memory
  185. > 
  186. > size_ma_error1:             ;Could not even get memory for file info!
  187. >                             ;But must free the lock IF it was not opened
  188. >   MOVE.l  file_lock,d1
  189. >   JSR     -$5a(a6)          ;Unlock(Lock)(d1)
  190. > 
  191. > size_lock_error:            ;No lock no bloody nothing!
  192. > 
  193. > size_ok:
  194. >   MOVEM.l (a7)+,a3-a6
  195. >   MOVE.l  file_size,d0      ;every thing went OK!
  196. >   RTS
  197. > 
  198. > 
  199. > 
  200. > file_name: Dc.l 0
  201. > file_lock: Dc.l 0
  202. > file_info: Dc.l 0
  203. > file_size: Dc.l 0
  204. > file_spot: Dc.l 0
  205. > file_hand: Dc.l 0
  206. > unlock:    Dc.l 0
  207. > memory_type: Dc.l 0
  208. > read_error: Dc.l 0
  209. > 
  210. > _freepcfcache:
  211. >   MOVEA.l d0,a1
  212. >   MOVE.l  d1,d0
  213. >   ALibJsr $c003
  214. >   RTS
  215. > 
  216. > size_ma_error1:             ;Could not even get memory for file info!
  217. >                             ;But must free the lock IF it was not opened
  218. >   MOVE.l  file_lock,d1
  219. >   JSR     -$5a(a6)          ;Unlock(Lock)(d1)
  220. > 
  221. > size_lock_error:            ;No lock no bloody nothing!
  222. > 
  223. > size_ok:
  224. >   MOVEM.l (a7)+,a3-a6
  225. >   MOVE.l  file_size,d0      ;every thing went OK!
  226. >   RTS
  227. > 
  228. > 
  229. > 
  230. > file_name: Dc.l 0
  231. > file_lock: Dc.l 0
  232. > file_info: Dc.l 0
  233. > file_size: Dc.l 0
  234. > file_spot: Dc.l 0
  235. > file_hand: Dc.l 0
  236. > unlock:    Dc.l 0
  237. > memory_type: Dc.l 0
  238. > read_error: Dc.l 0
  239. > 
  240. > _freepcfcache:
  241. >   MOVEA.l d0,a1
  242. >   MOVE.l  d1,d0
  243. >   ALibJsr $c003
  244. >   RTS
  245. > 
  246. > 
  247.  
  248. ----------------------------------------------------------------------------
  249. Paul Reece, Student & Network Assistant                               \\\///
  250. Claremont College - Tasmania, Australia                               d oo b   
  251.                                                                       | __ |
  252. preece@slick.clare.tased.edu.au, paul_ree@asgard.clare.tased.edu.au    \__/
  253. ----------------------------------------------------------------------------
  254. The opinions expressed herein are my own and not those of Claremont College!
  255. ----------------------------------------------------------------------------
  256.